10 PRINTCHR$(147):FORX=1TO500:NEXT
20 POKE53280,0:POKE53281,0
30 V=1475:A=-39:B=-41:C=39:D=41:W=1491:Q=INT(255*RND(1))+1:PRINTQ:S=55753
40 U=55757
50 T=INT(15*RND(1))+1
60 POKEV,Q:POKES,T:PRINTT
70 N=1:FORX=1TON:POKEV+A,Q:POKES+A,T:V=V+A:S=S+A:NEXT
80 FORX=1TON:POKEV+B,Q:POKES+B,T:V=V+B:S=S+B:NEXT
90 N=N+1:FORX=1TON:POKEV+C,Q:POKES+C,T:V=V+C:S=S+C:NEXT
100 FORX=1TON:POKEV+D,Q:POKES+D,T:V=V+D:S=S+D:NEXT
110 N=N+1:FORX=1TON:POKEV+A,Q:POKES+A,T:V=V+A:S=S+A:NEXT
120 FORX=1TON:POKEV+B,Q:POKES+B,T:V=V+B:S=S+B:NEXT
130 IFV>1042THEN90
140 POKEW,Q:POKEU,T
150 N=1:FORX=1TON:POKEW+A,Q:POKEU+A,T:W=W+A:U=U+A:NEXT
160 FORX=1TON:POKEW+B,Q:POKEU+B,T:W=W+B:U=U+B:NEXT
170 N=N+1:FORX=1TON:POKEW+C,Q:POKEU+C,T:W=W+C:U=U+C:NEXT
180 FORX=1TON:POKEW+D,Q:POKEU+D,T:W=W+D:U=U+D:NEXT
190 N=N+1:FORX=1TON:POKEW+A,Q:POKEU+A,T:W=W+A:U=U+A:NEXT
200 FORX=1TON:POKEW+B,Q:POKEU+B,T:W=W+B:U=U+B:NEXT
210 IFW>1042THEN170
220 FORX=1TO1000:NEXT
230 GOTO10